home *** CD-ROM | disk | FTP | other *** search
/ BCI NET 2 / BCI NET 2.iso / archives / applications / wp / textra16.lha / Textra116 / Scripts / JForth_Scripts / interpret.textra < prev    next >
Encoding:
Text File  |  1991-12-31  |  287 b   |  18 lines
  1. /* Execute selected text as JForth code */
  2.  
  3. options results
  4.  
  5. expression= 'EX= '
  6. get select text
  7. parse var result num  thisselect
  8. if num='NO' then exit
  9.  
  10. address 'JFORTH' thisselect
  11.  
  12. do until num=0
  13.    get select next
  14.    parse var result num thisselect
  15.     address 'JFORTH' thisselect
  16.    end
  17.  
  18.